home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / Icons.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  8.5 KB  |  472 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Icons.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__ICONS__') = 'UNDEFINED' THEN
  18. __ICONS__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  27.     include 'Quickdraw.a'
  28.     ENDIF
  29. ;        include 'MixedMode.a'                                        ;
  30. ;        include 'QuickdrawText.a'                                    ;
  31.  
  32. ; The following are icons for which there are both icon suites and SICNs. 
  33. genericDocumentIconResource        EQU        -4000
  34. genericStationeryIconResource    EQU        -3985
  35. genericEditionFileIconResource    EQU        -3989
  36. genericApplicationIconResource    EQU        -3996
  37. genericDeskAccessoryIconResource EQU        -3991
  38. genericFolderIconResource        EQU        -3999
  39. privateFolderIconResource        EQU        -3994
  40. floppyIconResource                EQU        -3998
  41. trashIconResource                EQU        -3993
  42. ; The following are icons for which there are SICNs only. 
  43. desktopIconResource                EQU        -3992
  44. openFolderIconResource            EQU        -3997
  45. genericHardDiskIconResource        EQU        -3995
  46. genericFileServerIconResource    EQU        -3972
  47. genericSuitcaseIconResource        EQU        -3970
  48. genericMoverObjectIconResource    EQU        -3969
  49. ; The following are icons for which there are icon suites only. 
  50. genericPreferencesIconResource    EQU        -3971
  51. genericQueryDocumentIconResource EQU        -16506
  52. genericExtensionIconResource    EQU        -16415
  53. systemFolderIconResource        EQU        -3983
  54. appleMenuFolderIconResource        EQU        -3982
  55.  
  56. startupFolderIconResource        EQU        -3981
  57. ownedFolderIconResource            EQU        -3980
  58. dropFolderIconResource            EQU        -3979
  59. sharedFolderIconResource        EQU        -3978
  60. mountedFolderIconResource        EQU        -3977
  61. controlPanelFolderIconResource    EQU        -3976
  62. printMonitorFolderIconResource    EQU        -3975
  63. preferencesFolderIconResource    EQU        -3974
  64. extensionsFolderIconResource    EQU        -3973
  65. fontsFolderIconResource            EQU        -3968
  66. fullTrashIconResource            EQU        -3984
  67. large1BitMask                    EQU        'ICN#'
  68. large4BitData                    EQU        'icl4'
  69. large8BitData                    EQU        'icl8'
  70. small1BitMask                    EQU        'ics#'
  71. small4BitData                    EQU        'ics4'
  72. small8BitData                    EQU        'ics8'
  73. mini1BitMask                    EQU        'icm#'
  74. mini4BitData                    EQU        'icm4'
  75. mini8BitData                    EQU        'icm8'
  76.  
  77. ;  alignment type values  
  78. atNone                            EQU        $0
  79. atVerticalCenter                EQU        $1
  80. atTop                            EQU        $2
  81. atBottom                        EQU        $3
  82. atHorizontalCenter                EQU        $4
  83. atAbsoluteCenter                EQU        atVerticalCenter | atHorizontalCenter
  84. atCenterTop                        EQU        atTop | atHorizontalCenter
  85. atCenterBottom                    EQU        atBottom | atHorizontalCenter
  86. atLeft                            EQU        $8
  87. atCenterLeft                    EQU        atVerticalCenter | atLeft
  88. atTopLeft                        EQU        atTop | atLeft
  89. atBottomLeft                    EQU        atBottom | atLeft
  90. atRight                            EQU        $C
  91. atCenterRight                    EQU        atVerticalCenter | atRight
  92. atTopRight                        EQU        atTop | atRight
  93. atBottomRight                    EQU        atBottom | atRight
  94.  
  95. ;  transform type values  
  96. ttNone                            EQU        $0
  97. ttDisabled                        EQU        $1
  98. ttOffline                        EQU        $2
  99. ttOpen                            EQU        $3
  100. ttLabel1                        EQU        $0100
  101. ttLabel2                        EQU        $0200
  102. ttLabel3                        EQU        $0300
  103. ttLabel4                        EQU        $0400
  104. ttLabel5                        EQU        $0500
  105. ttLabel6                        EQU        $0600
  106. ttLabel7                        EQU        $0700
  107. ttSelected                        EQU        $4000
  108. ttSelectedDisabled                EQU        ttSelected | ttDisabled
  109. ttSelectedOffline                EQU        ttSelected | ttOffline
  110. ttSelectedOpen                    EQU        ttSelected | ttOpen
  111.  
  112. ;  Selector mask values  
  113. svLarge1Bit                        EQU        $00000001
  114. svLarge4Bit                        EQU        $00000002
  115. svLarge8Bit                        EQU        $00000004
  116. svSmall1Bit                        EQU        $00000100
  117. svSmall4Bit                        EQU        $00000200
  118. svSmall8Bit                        EQU        $00000400
  119. svMini1Bit                        EQU        $00010000
  120. svMini4Bit                        EQU        $00020000
  121. svMini8Bit                        EQU        $00040000
  122. svAllLargeData                    EQU        $000000ff
  123. svAllSmallData                    EQU        $0000ff00
  124. svAllMiniData                    EQU        $00ff0000
  125. svAll1BitData                    EQU        svLarge1Bit | svSmall1Bit | svMini1Bit
  126. svAll4BitData                    EQU        svLarge4Bit | svSmall4Bit | svMini4Bit
  127. svAll8BitData                    EQU        svLarge8Bit | svSmall8Bit | svMini8Bit
  128. svAllAvailableData                EQU        $ffffffff
  129.  
  130.     IF ¬ OLDROUTINELOCATIONS  THEN
  131. CIcon                     RECORD    0
  132. iconPMap                 ds        PixMap                                ;the icon's pixMap
  133. iconMask                 ds        BitMap                                ;the icon's mask
  134. iconBMap                 ds        BitMap                                ;the icon's bitMap
  135. iconData                 ds.l    1                                    ;the icon's data
  136. iconMaskData             ds.w    1                                    ;icon's mask and BitMap data
  137. sizeof                     EQU    84
  138.                         ENDR
  139.  
  140.     IF GENERATING68K THEN
  141.         _GetCIcon:    OPWORD    $AA1E
  142.     ELSE
  143.         IMPORT    GetCIcon
  144.     ENDIF
  145.  
  146.     IF GENERATING68K THEN
  147.         _PlotCIcon:    OPWORD    $AA1F
  148.     ELSE
  149.         IMPORT    PlotCIcon
  150.     ENDIF
  151.  
  152.     IF GENERATING68K THEN
  153.         _DisposeCIcon:    OPWORD    $AA25
  154.     ELSE
  155.         IMPORT    DisposeCIcon
  156.     ENDIF
  157.  
  158.     IF GENERATING68K THEN
  159.         _GetIcon:    OPWORD    $A9BB
  160.     ELSE
  161.         IMPORT    GetIcon
  162.     ENDIF
  163.  
  164.     IF GENERATING68K THEN
  165.         _PlotIcon:    OPWORD    $A94B
  166.     ELSE
  167.         IMPORT    PlotIcon
  168.     ENDIF
  169.  
  170.     ENDIF
  171.     IF GENERATING68K THEN
  172.         Macro
  173.         _PlotIconID
  174.             move.w    #$0500,d0
  175.             dc.w     $ABC9
  176.         EndM
  177.     ELSE
  178.         IMPORT    PlotIconID
  179.     ENDIF
  180.  
  181.     IF GENERATING68K THEN
  182.         Macro
  183.         _NewIconSuite
  184.             move.w    #$0207,d0
  185.             dc.w     $ABC9
  186.         EndM
  187.     ELSE
  188.         IMPORT    NewIconSuite
  189.     ENDIF
  190.  
  191.     IF GENERATING68K THEN
  192.         Macro
  193.         _AddIconToSuite
  194.             move.w    #$0608,d0
  195.             dc.w     $ABC9
  196.         EndM
  197.     ELSE
  198.         IMPORT    AddIconToSuite
  199.     ENDIF
  200.  
  201.     IF GENERATING68K THEN
  202.         Macro
  203.         _GetIconFromSuite
  204.             move.w    #$0609,d0
  205.             dc.w     $ABC9
  206.         EndM
  207.     ELSE
  208.         IMPORT    GetIconFromSuite
  209.     ENDIF
  210.  
  211.     IF GENERATING68K THEN
  212.         Macro
  213.         _ForEachIconDo
  214.             move.w    #$080A,d0
  215.             dc.w     $ABC9
  216.         EndM
  217.     ELSE
  218.         IMPORT    ForEachIconDo
  219.     ENDIF
  220.  
  221.     IF GENERATING68K THEN
  222.         Macro
  223.         _GetIconSuite
  224.             move.w    #$0501,d0
  225.             dc.w     $ABC9
  226.         EndM
  227.     ELSE
  228.         IMPORT    GetIconSuite
  229.     ENDIF
  230.  
  231.     IF GENERATING68K THEN
  232.         Macro
  233.         _DisposeIconSuite
  234.             move.w    #$0302,d0
  235.             dc.w     $ABC9
  236.         EndM
  237.     ELSE
  238.         IMPORT    DisposeIconSuite
  239.     ENDIF
  240.  
  241.     IF GENERATING68K THEN
  242.         Macro
  243.         _PlotIconSuite
  244.             move.w    #$0603,d0
  245.             dc.w     $ABC9
  246.         EndM
  247.     ELSE
  248.         IMPORT    PlotIconSuite
  249.     ENDIF
  250.  
  251.     IF GENERATING68K THEN
  252.         Macro
  253.         _MakeIconCache
  254.             move.w    #$0604,d0
  255.             dc.w     $ABC9
  256.         EndM
  257.     ELSE
  258.         IMPORT    MakeIconCache
  259.     ENDIF
  260.  
  261.     IF GENERATING68K THEN
  262.         Macro
  263.         _LoadIconCache
  264.             move.w    #$0606,d0
  265.             dc.w     $ABC9
  266.         EndM
  267.     ELSE
  268.         IMPORT    LoadIconCache
  269.     ENDIF
  270.  
  271.     IF GENERATING68K THEN
  272.         Macro
  273.         _PlotIconMethod
  274.             move.w    #$0805,d0
  275.             dc.w     $ABC9
  276.         EndM
  277.     ELSE
  278.         IMPORT    PlotIconMethod
  279.     ENDIF
  280.  
  281.     IF GENERATING68K THEN
  282.         Macro
  283.         _GetLabel
  284.             move.w    #$050B,d0
  285.             dc.w     $ABC9
  286.         EndM
  287.     ELSE
  288.         IMPORT    GetLabel
  289.     ENDIF
  290.  
  291.     IF GENERATING68K THEN
  292.         Macro
  293.         _PtInIconID
  294.             move.w    #$060D,d0
  295.             dc.w     $ABC9
  296.         EndM
  297.     ELSE
  298.         IMPORT    PtInIconID
  299.     ENDIF
  300.  
  301.     IF GENERATING68K THEN
  302.         Macro
  303.         _PtInIconSuite
  304.             move.w    #$070E,d0
  305.             dc.w     $ABC9
  306.         EndM
  307.     ELSE
  308.         IMPORT    PtInIconSuite
  309.     ENDIF
  310.  
  311.     IF GENERATING68K THEN
  312.         Macro
  313.         _PtInIconMethod
  314.             move.w    #$090F,d0
  315.             dc.w     $ABC9
  316.         EndM
  317.     ELSE
  318.         IMPORT    PtInIconMethod
  319.     ENDIF
  320.  
  321.     IF GENERATING68K THEN
  322.         Macro
  323.         _RectInIconID
  324.             move.w    #$0610,d0
  325.             dc.w     $ABC9
  326.         EndM
  327.     ELSE
  328.         IMPORT    RectInIconID
  329.     ENDIF
  330.  
  331.     IF GENERATING68K THEN
  332.         Macro
  333.         _RectInIconSuite
  334.             move.w    #$0711,d0
  335.             dc.w     $ABC9
  336.         EndM
  337.     ELSE
  338.         IMPORT    RectInIconSuite
  339.     ENDIF
  340.  
  341.     IF GENERATING68K THEN
  342.         Macro
  343.         _RectInIconMethod
  344.             move.w    #$0912,d0
  345.             dc.w     $ABC9
  346.         EndM
  347.     ELSE
  348.         IMPORT    RectInIconMethod
  349.     ENDIF
  350.  
  351.     IF GENERATING68K THEN
  352.         Macro
  353.         _IconIDToRgn
  354.             move.w    #$0613,d0
  355.             dc.w     $ABC9
  356.         EndM
  357.     ELSE
  358.         IMPORT    IconIDToRgn
  359.     ENDIF
  360.  
  361.     IF GENERATING68K THEN
  362.         Macro
  363.         _IconSuiteToRgn
  364.             move.w    #$0714,d0
  365.             dc.w     $ABC9
  366.         EndM
  367.     ELSE
  368.         IMPORT    IconSuiteToRgn
  369.     ENDIF
  370.  
  371.     IF GENERATING68K THEN
  372.         Macro
  373.         _IconMethodToRgn
  374.             move.w    #$0915,d0
  375.             dc.w     $ABC9
  376.         EndM
  377.     ELSE
  378.         IMPORT    IconMethodToRgn
  379.     ENDIF
  380.  
  381.     IF GENERATING68K THEN
  382.         Macro
  383.         _SetSuiteLabel
  384.             move.w    #$0316,d0
  385.             dc.w     $ABC9
  386.         EndM
  387.     ELSE
  388.         IMPORT    SetSuiteLabel
  389.     ENDIF
  390.  
  391.     IF GENERATING68K THEN
  392.         Macro
  393.         _GetSuiteLabel
  394.             move.w    #$0217,d0
  395.             dc.w     $ABC9
  396.         EndM
  397.     ELSE
  398.         IMPORT    GetSuiteLabel
  399.     ENDIF
  400.  
  401.     IF GENERATING68K THEN
  402.         Macro
  403.         _GetIconCacheData
  404.             move.w    #$0419,d0
  405.             dc.w     $ABC9
  406.         EndM
  407.     ELSE
  408.         IMPORT    GetIconCacheData
  409.     ENDIF
  410.  
  411.     IF GENERATING68K THEN
  412.         Macro
  413.         _SetIconCacheData
  414.             move.w    #$041A,d0
  415.             dc.w     $ABC9
  416.         EndM
  417.     ELSE
  418.         IMPORT    SetIconCacheData
  419.     ENDIF
  420.  
  421.     IF GENERATING68K THEN
  422.         Macro
  423.         _GetIconCacheProc
  424.             move.w    #$041B,d0
  425.             dc.w     $ABC9
  426.         EndM
  427.     ELSE
  428.         IMPORT    GetIconCacheProc
  429.     ENDIF
  430.  
  431.     IF GENERATING68K THEN
  432.         Macro
  433.         _SetIconCacheProc
  434.             move.w    #$041C,d0
  435.             dc.w     $ABC9
  436.         EndM
  437.     ELSE
  438.         IMPORT    SetIconCacheProc
  439.     ENDIF
  440.  
  441.     IF GENERATING68K THEN
  442.         Macro
  443.         _PlotIconHandle
  444.             move.w    #$061D,d0
  445.             dc.w     $ABC9
  446.         EndM
  447.     ELSE
  448.         IMPORT    PlotIconHandle
  449.     ENDIF
  450.  
  451.     IF GENERATING68K THEN
  452.         Macro
  453.         _PlotSICNHandle
  454.             move.w    #$061E,d0
  455.             dc.w     $ABC9
  456.         EndM
  457.     ELSE
  458.         IMPORT    PlotSICNHandle
  459.     ENDIF
  460.  
  461.     IF GENERATING68K THEN
  462.         Macro
  463.         _PlotCIconHandle
  464.             move.w    #$061F,d0
  465.             dc.w     $ABC9
  466.         EndM
  467.     ELSE
  468.         IMPORT    PlotCIconHandle
  469.     ENDIF
  470.  
  471.     ENDIF ; __ICONS__
  472.